%GLOBAL CWD; %LET CWD = %SUBSTR(%SYSGET(SAS_EXECFILEPATH), 1, %EVAL(%LENGTH(%SYSGET(SAS_EXECFILEPATH)) - %LENGTH(%SYSGET(SAS_EXECFILENAME)) - 1));

LIBNAME OUT "&CWD\OUTPUT";

DATA STRIP;
	SET
		OUT.FH011_01(DROP=STRING_CD)
		OUT.FK011_01A(DROP=STRING_CD)
		OUT.FC011_01A(DROP=STRING_CD)
		OUT.FK021_01A(DROP=STRING_CD)
		OUT.FL011_01(DROP=STRING_CD)
		OUT.FJ011_01B(DROP=STRING_CD)
		OUT.FB011_01(DROP=STRING_CD)
		OUT.FD021_01(DROP=STRING_CD)
		OUT.FL031_01A(DROP=STRING_CD)
		OUT.FN031_01A(DROP=STRING_CD)
		OUT.FL021_01A(DROP=STRING_CD)
		OUT.FS011_01A(DROP=STRING_CD)
		OUT.FN011_01(DROP=STRING_CD)
		OUT.FP011(DROP=STRING_CD)
		;
	KEEP PERIOD LGGROC DISCDEP SMGROC CONVENC WAREHS OTHSTORE;
RUN;

PROC SORT DATA = STRIP;
	BY PERIOD;
RUN;

PROC MEANS DATA=STRIP NOPRINT;
	BY PERIOD;
	VAR LGGROC DISCDEP SMGROC CONVENC WAREHS OTHSTORE;
	OUTPUT OUT=CONCMEAN MEAN=LGGROC DISCDEP SMGROC CONVENC WAREHS OTHSTORE;
RUN;

PROC PRINT DATA=CONCMEAN; RUN;

PROC EXPORT DATA = CONCMEAN OUTFILE = "&CWD\OUTPUT\FIGURE1.XLS" DBMS=EXCEL;
	SHEET = CONCDATA;
RUN;
